diff --git a/examples/app/MissApp.hs b/examples/app/MissApp.hs
index 2341f06f9..c5faa41ff 100644
--- a/examples/app/MissApp.hs
+++ b/examples/app/MissApp.hs
@@ -48,3 +48,7 @@ parts f = words (map (\c -> if c =='_' then ' ' else c) f)
 
 catOf :: Fun -> String
 catOf = last . parts
+
+prepareMissing :: MissMap -> Lang -> String -> IO ()
+prepareMissing mm lang cat = putStrLn $ unlines 
+  [ "lin " ++ p ++ " = mk" ++ cat ++ " \"\" ;"| (l,ps) <- allMissingSuchFuns mm (\f -> catOf f == cat), l == lang, p <- ps]