data Expr = Value Double | Expr :+: Expr | Expr :-: Expr | Expr :*: Expr -- | что там еще умеет калькулятор