cakemanny

module Main where

import Data.List (intersperse)

type Name = String
type Equations = [(Expr,Expr)]

data Expr
  = Func Name [Expr] -- if [Expr] is [], then it's a constant
  | Var Name