`bsave', `bload'
----------------

bsave(OBJ,"FILENAME")
     :: FILENAME $@$K(J OBJ $@$r%P%$%J%j7A<0$G=q$-9~$`(J.
bsave("FILENAME")
     :: FILENAME $@$+$i?t<0$r%P%$%J%j7A<0$GFI$_9~$`(J.

RETURN
     `bsave()' : 1, `bload()' : $@FI$_9~$s$@?t<0(J
OBJ
     $@H!?t7A<0(J, $@L$Dj78?t$r4^$^$J$$G$0U$N?t<0(J
FILENAME
     $@%U%!%$%kL>(J

   * `bsave()' $@$OFbIt7A<0$r$[$\$=$N$^$^%P%$%J%j7A<0$G%U%!%$%k$K=q$-9~(J
     $@$`(J. `bload()' $@$O(J, `bsave()' $@$G=q$-9~$s$@?t<0$rFI$_9~$s$GFbIt7A<0(J
     $@$KJQ49$9$k(J. $@8=:_$N%$%s%W%j%a%s%F!<%7%g%s$N@)8B$K$h$j(J, $@H!?t7A<0(J, 
     $@L$Dj78?t(J (`vtype()' $@;2>H(J) $@$r4^$^$J$$%j%9%H(J, $@G[Ns$J$I$r4^$`G$0U$N(J
     $@?t<0$r%U%!%$%k$KJ]B8$9$k$3$H$,$G$-$k(J.
   * `output()' $@$J$I$GJ]B8$7$?>l9g(J, $@FI$_9~$_;~$K%Q!<%6$,5/F0$5$l$k$,(J,
     `bsave()' $@$GJ]B8$7$?$b$N$r(J `bload()' $@$GFI$`>l9g(J, $@D>@\FbIt7A<0$,9=(J
     $@@.$G$-$k$?$a(J, $@;~4VE*(J, $@6u4VE*$K8zN($,$h$$(J.
   * $@B?9`<0$N>l9g(J, $@=q$-9~$_;~$HFI$_9~$_;~$GJQ?t=g=x$,0[$J$k>l9g$,$"$k(J
     $@$,(J, $@$=$N>l9g$K$O(J, $@<+F0E*$K8=:_$NJQ?t=g=x$K$*$1$kFbIt7A<0$KJQ49$5(J
     $@$l$k(J.

     [0] A=(x+y+z+u+v+w)^20$
     [1] bsave(A,"afo");
     1
     [2] B = bload("afo")$
     [3] A == B;
     1
     [4] X=(x+y)^2; 
     x^2+2*y*x+y^2
     [5] bsave(X,"afo")$
     [6] quit;
     % asir
     [0] ord([y,x])$    
     [1] bload("afo");
     y^2+2*x*y+x^2

$@;2>H(J
     `output'

