       10 // Becplus test program
       20 //
       30 n:=0
       40 //
       50 FUNC r
       60   n:+1
       70   RETURN 0
       80 ENDFUNC r
       90 //
      100 DIM a(0:1)
      110 // TODO: Fix this!
      120 a(r):+1
      130 SYS assert, n=2
      140 PRINT "Ok"  // For now.
