%%HP: T(1)A(R)F(.);
« Ť A B C
  « '-B/(2*A)' Ť Ś
    « '(-B^2+4*A*C)/(
4*A)' Ť ß
      « 'A*(X-Ś)^2+ß'
'A' A EVAL = SUBST
'Ś' Ś EVAL = SUBST
'ß' ß EVAL = SUBST
      »
    »
  »
»