Utilのソースプログラムを入力して下さい。
fact = \ n -> if n<=1 then 1 else n*fact(try n-1 catch \ _ -> n-2) ; c = \ x -> try 1/0 catch \ _ -> 99999