И это всё МОЁ

здрасте здрасте люди добрые

скажите пожалуйста почему не работает

modile Main where

main::IO()

main=do{ y<-getLine; st= y:[]; print (st)}