[Haskell-beginners] having trouble with helloworld style program

Hello everybody, All I want to do in the following code is to read an integer from stdin and print it back to stdout. Can somebody help me fix my code snippet below.. Thanks, Sunil module Main where import Prelude stringToInt::String->Int stringToInt str = read str main = do x<-getLine y<-stringToInt x print y