Proc Main()
 byte REPEAT

 REPEAT=5
  Do
   Print("ha")
   REPEAT==-1
   Until REPEAT=0
  Do

Return