use strict;
   die'TILDE',@~;
   sub CHECK{@~=$~=~m~(.)~g,unshift@~,
   splice@~,2,3;unshift@~,pop@~,*{H},;
   push@~,*{PAR}=>;($~[$#{~}],$~[$#{~}
   +-1])=($~[$#{~}+-1].$/=>$~[$#{~}]);
   for(@{~}){s~.*:~~;s~$~ ~ if$?++%2}}