: sq dup * ;
: discr rot 4 * * swap sq swap - ;
1 2 3 discr
