$EXTRN IMPLODE;

$ENTRY Get_In {
     ('.') e.2 = e.2;
     (e.1) e.2 = <Gi (<Imp e.1>) e.2>;
              }

Imp {
  e.1 = e.1;
*    '@' e.1 = <Imp e.1>;
*    e.1 '/' e.2 = <IMPLODE e.1> <Imp e.2>;
*    e.1 = <IMPLODE e.1>;
    }

Gi {
     (s.Tag) e.0 ((s.Tag e.1) e.2) e.3 = e.2;
     (s.Tag s.T) e.0 ((s.Tag (s.T Is e.1)) e.2) e.3 = e.1;
     (s.Tag) e.3 = (s.Tag);
   }