FUNCTION Main()
   LOCAL cAsync := ;
      'FUNCTION Worker(ch, n)' + Chr(10) + ;
      '   ChSend(ch, n * n)' + Chr(10) + ;
      '   RETURN NIL' + Chr(10)

   LOCAL pAsync := FrbCompile(cAsync)
   IF pAsync != NIL
      LOCAL ch := Channel(1)
      Go("WORKER", ch, 7)
      ? "  7^2 from dynamic goroutine =", ChReceive(ch)
      FrbUnload(pAsync)
   ENDIF
   RETURN NIL