%%HP: T(1)A(D)F(.);
  F
   -3 CF 'X' PURGE
0 X F X  EVAL
  

