begin
  routine fred(integer n)
    if n&7 = 7 start
      monitor   ; ! print diags
!     %monitor 3
    finish
  end
  integer i = 0
  cycle
    fred(i)
    i = i+1
  repeat until i = 10
  print string("Done.");
  newline
  stop
endofprogram