path: root/examples/fracas/FeedGF.hs

import FraCaSBankI

main = putStr . unlines $ ["ps \"@"++n++"\"; l -treebank "++s|(n,s@('(':_))<-bank]