`heap'
------

heap()
     :: $@8=:_$N%R!<%W$NBg$-$5$rJV$9(J. ($@C10L(J:$@%P%$%H(J)

RETURN
     $@<+A3?t(J

   * $@8=:_$N%R!<%W$NBg$-$5(J($@C10L(J : $@%P%$%H(J) $@$rJV$9(J. $@%R!<%W$H$O(J, Asir $@$N$5(J
     $@$^$6$^$J?t<0$d(J, $@%f!<%6%W%m%0%i%`$J$I$,$*$+$l$k%a%b%j$NNN0h$G(J, $@%,!<(J
     $@%Y%8%3%l%/%?$K$h$j4IM}$5$l$F$$$k(J. $@%W%m%0%i%`$NF0:nCf$O(J, $@%R!<%W$N(J
     $@Bg$-$5$OC1D4Hs8:>/$G$"$j(J, $@<B%a%b%j$NNL$r$3$($FBg$-$/$J$C$?>l9g$K(J
     $@$O(J, OS $@$K$h$k%9%o%C%W%(%j%"$X$NFI$_=q$-$,$[$H$s$I$N7W;;;~4V$r@j$a(J
     $@$k$3$H$K$J$k(J.
   * $@<B%a%b%j$,>/$J$$>l9g$K$O(J, $@5/F0;~$N(J `-adj' $@%*%W%7%g%s$K$h$j(J, GC $@<g(J
     $@BN$N@_Dj$r9T$C$F$*$/I,MW$,$"$k(J.

     % asir -adj 16  
     [0] load("fctrdata")$
     0
     [97] cputime(1)$
     0msec
     [98] heap();
     524288
     0msec
     [99] fctr(Wang[8])$
     3.190sec + gc : 3.420sec
     [100] heap();
     1118208
     0msec
     [101] quit;
     % asir
     [0] load("fctrdata")$   
     0
     [97] cputime(1)$   
     0msec
     [98] heap();    
     827392
     0msec
     [99] fctr(Wang[8])$
     3.000sec + gc : 1.180sec
     [100] heap();       
     1626112
     0msec
     [101] quit;

$@;2>H(J
     *Note $@%3%^%s%I%i%$%s%*%W%7%g%s(J::

