Reverse a list

rev :: [Int] -> [Int]
rev []      = []
rev [a]     = [a]
rev (x:xs)  = rev xs ++ [x]

main :: IO ()
main =
    mapM_ print $ rev [1..100]