#!/usr/bin/env runhaskell
var = 22
str = "22"
toString 1 = "Eins"
toString 2 = "Zwei"

numbers = [1,1,2]

main = do
     putStrLn ( str ++ "10" )
     putStrLn $ str ++ "10"
     putStrLn ( show (var + 10) )
     putStrLn $ show $ var + 10
     putStrLn ( "str is " ++ str ++ " var is " ++ show var )
     putStrLn ( show (map toString numbers) )
     putStrLn $ show $ map toString numbers
     putStrLn $ show $ foldl (\x y -> x*10 + y) 0 [2, 0, 1, 7]