[Haskell-beginners] flatten

Hello everybody, can somebody tell me as to what is wrong with the following code myflatten::[(a,a)]->[a] myflatten [] = [] myflatten (fx,sx):xs = fx:sx:(myflatten xs) It says that there is a parse error on the last line.. Thanks, Sunil.