UtilErr コンパイラ

UtilErr のソースプログラムを入力して下さい。


入力の文法カテゴリ:
Expr（式） Decls （宣言 つまり、 変数 = 式; 変数 = 式; … ; 変数 = 式）
出力に do 式を使いますか:
はい do 式を使います いいえ >>= を使います
入力例（コピペして使って下さい）: 
foo = \ n -> (\ x -> 0) (1 / 0)
;
fact = \ n -> if n <= 1 then 1 else n * fact(try n - 1 catch n - 2)
;
c = \ x -> try 1 / 0 catch 99999
Koji Kagawa