{{ Prints 100 random numbers to a file
{{ Juliet 2004.0

$libfio
$lib

rout main
  def handle:int <- fopeno ("randfile.txt")

  def i:int <- 0
  loop i < 100
    fwrite (handle, str random(0,1))
    i <- i + 1

  fclose (handle)

  _prim_cout "Done..."