FUNCTION Main()
   LOCAL r

   /* in-memory compile a simple loop */
   r := FrbExec( ;
      'FUNCTION Main()' + Chr(10) + ;
      '   LOCAL i, n := 0' + Chr(10) + ;
      '   FOR i := 1 TO 10' + Chr(10) + ;
      '      n := n + i' + Chr(10) + ;
      '   NEXT' + Chr(10) + ;
      '   RETURN n' + Chr(10) )
   ? "sum 1..10 (using :=) =", r, "(expect 55)"

   r := FrbExec( ;
      'FUNCTION Main()' + Chr(10) + ;
      '   LOCAL i, n := 0' + Chr(10) + ;
      '   FOR i := 1 TO 10' + Chr(10) + ;
      '      n += i' + Chr(10) + ;
      '   NEXT' + Chr(10) + ;
      '   RETURN n' + Chr(10) )
   ? "sum 1..10 (using +=) =", r, "(expect 55)"

   /* string accumulator */
   r := FrbExec( ;
      'FUNCTION Main()' + Chr(10) + ;
      '   LOCAL i, s := ""' + Chr(10) + ;
      '   FOR i := 1 TO 5' + Chr(10) + ;
      '      s := s + Str(i, 1)' + Chr(10) + ;
      '   NEXT' + Chr(10) + ;
      '   RETURN s' + Chr(10) )
   ? "concat 1..5         =", r, '(expect "12345")'

   RETURN NIL