`output'
--------

output(["FILENAME"])
     :: $@0J9_$N=PNO@h$r(J FILENAME$@$^$?$OI8=`=PNO$K@ZBX$($k(J.

RETURN
     1
FILENAME
     $@%U%!%$%kL>(J

   * Asir $@$N=PNO$rI8=`=PNO$+$i(J, $@%U%!%$%k$X$N=PNO$K@ZBX$($k(J. $@$J$*(J, $@%U%!(J
     $@%$%k=PNO$N4V$O(J, $@I8=`=PNO$K$O%-!<%\!<%I$+$i$NF~NO0J30(J, $@=PNO$5$l$J(J
     $@$$(J.
   * $@JL$N%U%!%$%k=PNO$K@ZBX$($k;~$K$O(J, $@:F$S(J `output("FILENAME")' $@$r<B(J
     $@9T$9$k(J. $@Kt(J, $@%U%!%$%k=PNO$r=*N;$7I8=`=PNO$KLa$j$?$$;~$K$O(J, $@0z?t$J(J
     $@$7$G(J `output()' $@$r<B9T$9$k(J.
   * $@;XDj$7$?%U%!%$%k(J FILENAME $@$,B8:_$7$?;~$O(J, $@$=$N%U%!%$%k$NKvHx$KDI(J
     $@=q$-$5$l(J, $@B8:_$7$J$+$C$?;~$K$O(J, $@?7$?$K%U%!%$%k$r:n@.$7(J, $@$=$3$K=q(J
     $@$-9~$^$l$k(J.
   * $@%U%!%$%k%M!<%`$r(J "" $@%@%V%k%/%)!<%H$J$7$G;XDj$r$7$?$j(J, $@%f!<%6$,(J, 
     $@=q$-9~$a$J$$%U%!%$%k$r;XDj$7$?$j$9$k$H(J, $@%(%i!<$K$h$j%H%C%W%l%Y%k(J
     $@$KLa$k(J.
   * $@F~NO$7$?$b$N$b9~$a$F%U%!%$%k$K=PNO$7$?$$>l9g$K$O(J,
     `ctrl("echo",1)' $@$r<B9T$7$?8e$G%U%!%$%k=PNO$K@ZBX$($l$PNI$$(J.
   * $@7W;;;~4V$J$I(J, $@I8=`%(%i!<=PNO$K=q$-=P$5$l$k$b$N$O%U%!%$%k$K$O=q$-(J
     $@=P$5$l$J$$(J.
   * $@H!?t7A<0(J, $@L$Dj78?t(J (`vtype()' $@;2>H(J) $@$r4^$^$J$$?t<0$N%U%!%$%k$X$N(J
     $@FI$_=q$-$O(J, `bload()', `bsave()' $@$r;H$&$N$,(J, $@;~4V(J, $@6u4V$H$b$K8zN((J
     $@$,$h$$(J.

     [83] output("afo");
     fctr(x^2-y^2);
     print("afo");
     output();
     1
     [87] quit;
     % cat afo
     1
     [84] [[1,1],[x+y,1],[x-y,1]]
     [85] afo
     0
     [86]

$@;2>H(J
     `ctrl', `bload', `bsave'

