Hello, Elm

gistfile1.elm

import Text (..)
import String (..)
import Color (..)
import Graphics.Element (..)
import Graphics.Collage (..)

greet name age =
  plainText ("Hello, " ++ name ++ "! You don't look " ++ toString(age) ++ "!")
  
add x y = x + y

square n = n * n

main = collage 250 250 [
         filled lightPurple (rect 65 65),
         toForm (image 50 50 "http://clarkware.com/images/mike.png"),
         move (25, -60) 
           (alpha 0.5 (toForm (greet (reverse "ekiM") (square (add 10 8)))))
        ]