%%HP: T(1)A(D)F(,);
« 'A' STO 'B' STO
  FOR i
    IF A i MOD 0 =
    THEN i DUP
    END
  NEXT
»