language: Haskell (ghc-6.8.2)
date: 116 days 1 hour ago
link:
visibility: public
1
2
3
4
main =  do
        putStrLn "Sum all natural numbers from 1 to? "
        integerInput <- readLn
        (print . sum ) [1..integerInput]