fileTerm :: String -> Result (Note Symbol ()) (Term Symbol)
fileTerm = fmap fst . FP.parseAndSynthesizeAsFile "<test>"
fileTerm :: String -> Result (Note Symbol ()) (Term Symbol)
fileTerm = fmap fst . FP.parseAndSynthesizeAsFile "<test>"
fileTerm = fmap fst . FP.parseAndSynthesizeAsFile "<test>"