ืืืคืชื Haskell ืขื ื ืืกืืื ืจื ืืชืืื ืงืืืื ืืชืจืื ืืืืคื ื, ืื ื ืืืื ืืช ืืืืจื ืืืกืคืงืช ืงืื ืคืื ืงืฆืืื ืื ืขื ืืฉืจืื ืืกืืื ื. ืืืืืช ืืคืชื ืืขืืื ืืชืื ืืช ืืืืืืืช ืืช ืืื ืฉื ืจืื ืขื ืืืกืืื - ืืืืืืื ืคืฉืืืช, ืชืืืื ืืืืฉื ืืช.
ืืืงืื Haskell ืฉืื ื, ืืืฆืืื ืืืื ืืจืืงืืืืืช ืืงืืืื ืืืจืืื ืืขืืงืจื ืฉื ืขืืื ืืืืคื ื, 'ืืฉืืื ืืฉืืืจื ืืงืื ื' ืฉืืืฆืื ืขื ืืื ืงืืงื ืฉืื ื ืืฉื ืืช ื-1920. ืืื ืืื ืืืจืกื ื ืฉืื ื, ืฉืืฉืืืืฉ ื ืืื ืืกืคืง ืคืชืจืื ืืช ืืืกืคืจ ืขืฆืื ืฉื ืืขืืืช ืืืฆืืข ืงืื.
ืืขืช, ืืืื ื ืฆืืื ืืคืชืจืื ืืืขืื ืฉืื ื: ืืืฆืืื ืืืื ืืจืืงืืืืืช.
ืืืืื ืจืืฉื (ืจืืฉื) ืืืคื
ืืืืื โโืืขืจืืช.ืืฆืืื
ืจืืฉื :: IO ()
ืจืืฉื = ืืขืฉืืช
putStrLn "ืฉืืื! ืืงืืืื ืืฉืื ืืื ืื ื ืืคืกืืง."
userInput <- getLine putStrLn ("ืืืจืช: " ++ userInput) exitSuccess [/code]
ืื ืชื ืืช ืืจืื ืืืกืงื ืฉืื ื
ืคืชืจืื Haskell ืฉืื ื, ืืืืื ืืฉืืื ืืฉืืืจื ืืงืื ื ืฉื ืฉืื ื, ืืื ืืืื ืื ืืคืฉืืืชื. ืืื ืืฉืชืืฉ ืจืง ืืืื ืืืงื ืืคืชื ืืืฉืืืืื ืืฆืืจื ืืชืืืืืช.
ืืคืื ืงืฆืื ืืขืืงืจืืช ืืชืืืื ืืืืืจืืช ืขื ืืืฉืชืืฉ (ืืืืื ืืจืืฉื ืืจืืฉืื ื ืืืืืืื ืฉืขืืฉื ืืืืื ืืช ืืกืืื). ืืืืจ ืืื, ืืคืื ืงืฆืื ืืืงืฉืช ืงืื ืืืืคืืช ืื ืืืืื ืืืืช, ืืืืื ืืืืืื ืืช ืืงืฆืืขืืช ืืืืคืืช ืืืืืืืืช ืืชืงืื ืืืจืื ืืืืืื.
ืืืืืข ื ืืกืฃ