-- returns a reversed list
reverse :: [a] -> [a]
reverse [] = []
reverse [a] =[a]
reverse [a,b] = [b,a]
reverse [a,b,c] = [c,b,a]
reverse [a,b,c,d] = [d,c,b,a]