! Box / Unbox macro. !
@^UB_[Z [Y [X
! Box !
1,0MJ"S
   .-(4:W-1)"L .U5 (4:W-1)J .UZ | .UZ (4:W-1)U5 '
   0^Q"L L ' .UZ Q5J 0L .U5 0UX
   <M1"F @O!E! ' .-QZ; @::S/^ES/^[ (^Q-2)-QX"G (^Q-2)UX ' L>
   (1:W-4)-QX/2UY QY"L 7M3 @O!E! '
   @^UZ%
%  QY<32@:^UZ//> QX+4<QQ@:^UZ//> @:^UZ%
%  QY<32@:^UZ//> QQ@:^UZ// QX+2<32@:^UZ//> QQ@:^UZ// @:^UZ%
%  Q5J <M1"F @O!E! ' .-QZ; QY<32@:^UZ//> QQ@:^UZ// 32@:^UZ// @::S/^ES/^[
   .,.+(^Q-2):XZ (QX+1)-(^Q-2)<32@:^UZ//> QQ@:^UZ// @:^UZ%
%  L> QY<32@:^UZ//> QQ@:^UZ// QX+2<32@:^UZ//> QQ@:^UZ// @:^UZ%
%  QY<32@:^UZ//> QX+4<QQ@:^UZ//> @:^UZ%

%  Q5,QZK 0,4:W^[ GZ
|
! Unbox !
   QQ@^UX// ^Q,1@:S/^EQX/"U 7M3 @O!E! '
   0U5 <1M1; -.; -L .U5 @::S/^EQ2/:;> 0,0XZ 2L
   <M1"F @O!E! ' .-Z; @::S/^EQ2/:; ^Q,1@S/^EQX^ES/; @::S/^EQX/"S 3L 0; '
   .UY ^Q,1@S/^ES^EQX^EQ2/;
   ^SC QY,.:XZ @:^UZ%
%  L> Q5,.X7 Q5,.K GZ
' !E! ]X ]Y ]Z_