type instruction  =
       | ADD
       | SUB
       | MUL
       | SQR
       | PUSH of float;
(* dodawanie   *)
(* odejmowanie *)
(* mnozenie    *)
(* podnoszenie do kwadratu *)
(* odkladanie na stos *)