[add tagUnfunction
John Meacham <john@repetae.net>**20050912234432] hunk ./Grin/Grin.hs 11
+    tagUnfunction,
hunk ./Grin/Grin.hs 248
+tagUnfunction :: Monad m => Tag -> m (Int, Tag)
+tagUnfunction t
+    | tagIsSuspFunction t = return (0,tagFlipFunction t)
+    | tagIsFunction t = return (0,t)
+    | ('P':zs) <- t', (n@(_:_),'_':rs) <- span isDigit zs = return (read n, toAtom ('f':rs))
+    where t' = fromAtom t
+tagUnfunction _ = fail "Tag does not represent function"