%%HP: T(1)A(G)F(.);
 { D HA KA P RA
XSOL } DUP EVAL 6
LIST SWAP 1
   STR
   DOSUBS TAG
"Guardar Estructura
como:"
"'E" INPUT OBJ STO

