/*

   flipem - Numerator called routine for demonstrating random numbers.

*/

flip = flip - 1
if (flip)
   x = rand(2)
   if (x)
      heads = heads + 1
   endif
   if (x == 0)
      tails = tails + 1
   endif
   do "flipem"
endif