%%HP: T(1)A(G)F(.);
  p
  
    DO DUP p EVAL
DUP ROT
    UNTIL SAME
    END
  

