run :: String -> Meow ()
run str = do
  let term = parseTree str
  let val = term `deepseq` evaluate term
  meow $ pprint val
run :: String -> Meow ()
run str = do
  let term = parseTree str
  let val = term `deepseq` evaluate term
  meow $ pprint val
run str = do
  let term = parseTree str
  let val = term `deepseq` evaluate term
  meow $ pprint val