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
   7                     ++ show (take 100 (repeat 123.456))
   8                     ++ "\n")