Function to convert Hex to Oct in haskell

Question

I have to convert any Hex Number to an Oct number. On another post I saw this code

main = do
    octStr <- getLine
    let
        val :: Integer
        (