%%HP: T(1)A(D)F(.);
«
"Faktorisierung
  AX^2+BX+C ¨
  A*(X+B)^2+C"
":A:" INPUT OBJ¨
EVAL "AX^2+BX+C"
":B:" INPUT OBJ¨
EVAL "AX^2+BX+C"
":C:" EVAL INPUT
OBJ¨ ¨ A B C
  « B 2 A * / ¨Q b
¨TAG 'X' SWAP + 2 ^
A ¨Q SWAP * 4 A C *
* B 2 ^ - 4 A * /
¨Q c ¨TAG +
"A*(X+B)²+C" SWAP
  »
»