Haskell Input

main = do
    line <- getLine
    let n = read line :: Int 
    putStrLn "You input is: " 
    print n
    if n > 0
    then putStrLn "and it is greater than 0"
    else putStrLn "and it is less than or equal to 0"