hd :: [a] -> a
hd [] = error "empty list"
hd (x : _) = x

main :: IO ()
main = print (hd []::[String])

reverse :: [a] -> [a]
reverse l = rev l []
  where
    rev []     a = a
    rev (x:xs) a = rev xs (x:a)