[project @ 2001-01-05 15:24:28 by sewardj]

[ghc-hetmet.git] / ghc / interpreter / Dh_Demo.hs

diff --git a/ghc/interpreter/Dh_Demo.hs b/ghc/interpreter/Dh_Demo.hs
index fb6d6d0..2802b2f 100644 (file)
--- a/ghc/interpreter/Dh_Demo.hs
+++ b/ghc/interpreter/Dh_Demo.hs
@@ -3,4 +3,6 @@ module Dh_Demo where
 
 wurble :: Int -> IO ()
 wurble x = putStr ( "Hello Erik && Daan, today's magic number is: " 
-                    ++ show x ++ "\n")
+                    ++ show x
+                    ++ show (take 100 (repeat 123.456)) 
+                    ++ "\n")