let rec Eval tree =
    match tree with
    |calculator.Leaf (Operand x) -> x
    |calculator.SubTree1(tl, oper, tr) -> (oper(HÄR) (Eval tl) (Eval tr))
    |_ -> 0.0