main = do

  foreach [1..10] print

  ref <- newIORef 0

  while (test ref (< 5))

        (do 

	  print "Still running!"

          incr ref)