Compile and Execute Haskell Online

main :: IO()
main = putStrLn(show(trans [[1,2,3],[4,5,6],[7,8,9]]))

applist :: [ a ] -> [ a ] -> [ a ]
applist xs [] = xs
applist [] ys = ys
applist (x:xs) ys = x : applist xs ys

revlist :: [ a ] -> [ a ]
revlist [] = []
revlist (x:xs) = applist (revlist xs) [ x ]

pam :: [ (a->b) ] -> a -> [ b ]
pam [] y = []
pam (x:xs) y = x y : pam xs y

concatlist :: [ [ a ] ] -> [ a ]
concatlist = foldr (++) []

sumlist :: [ Int ] -> Int
sumlist = foldr (+) 0

trans :: [ [ Int ] ] -> [ [ Int ] ]
trans ([]:xss) = []
trans xss = map head xss : trans (map tail xss)