CMDS`VIEW`GEN

&CMDS`VIEW Gift Tree=$+presents/view:think setq(n,nattr(%!/presents`gen*));@break switch(%qn,0,pemit(%#,Oh no! Unicron ate all the presents! Better wrap some more.)1,0);@pemit %#=You count %qn pretty packages. They are:%r;@dolist/inline [extract(shuffle(lattr(%!/presents`gen*)),1,10)]=@pemit %#=#@. A package in [ansi(+[elements([get(%!/##)],1,;)],[elements([get(%!/##)],1,;)])] wrapping paper with a [ansi(+[elements([get(%!/##)],2,;)],[elements([get(%!/##)],2,;)])] bow. ; @pemit %#=[ansi(15,[center(switch(sub(%qn,10),<1,null(),>0,\[ [ansi(ch,And #$ more)] \]),sub(width(%#),2),[ansi(111,.)][ansi(159,o)]O[ansi(159,o)])])]