Haskell Problem

module Main where
import System.Environment
main :: IO ()
main = do args <− getArgs
    putStrLn ( "Hello, " ++ args !! 0)

__________________________________________________

hello.hs:6:1: parse error on input `putStrLn'