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