ghc/interpreter/Dh_Demo.hs

   1
   2 module Dh_Demo where
   3
   4 wurble :: Int -> IO ()
   5 wurble x = putStr ( "Hello Erik && Daan, today's magic number is: "
   6                     ++ show x ++ "\n")