1 2 3 4 5 6 7
abstract Calculator = { flags startcat = Exp ; cat Exp ; fun EPlus, EMinus, ETimes, EDiv : Exp -> Exp -> Exp ; EInt : Int -> Exp ; }