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