здрасьте здрасьте люди добрые. помогите исправить код на 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
чтобы была возможность добавить в список элементы с клавиатуры