И это всё МОЁ

здрасьте здрасьте люди добрые.
помогите исправить код на Haskell 


module Main where

main::IO()

l=[8, 5, 9]
z x | x < 2 =do{a<-getLine; b<-return(read(a)::Int); return(l++[b]);   z(x+1);}
    | x == 3 = do{print l;}

main= z 0


чтобы была возможность добавить в список элементы с клавиатуры