( Copyright PPC Paris 1986 )
: EPYT
 SWAP OVER 2* + 2- SWAP 0
 DO DUP C@ EMIT 2- LOOP
 DROP ;
: TUPNI
 " Chaine" TYPE
 PAD EXPECT96 PAD SPAN @ EPYT ;