方法是在fsharp吧学的，在文本编辑器内，将两个半角空格换成一个全角空格就好
(letrec ((iter
　　　　　(lambda (x y z)
　　　　　　(cond ((> z 20)
　　　　　　　　　 (iter x (+ y 1) 0))
　　　　　　　　　((> y 33)
　　　　　　　　　 (iter (+ x 3) 0 0))
　　　　　　　　　((> x 99) 'done)
　　　　　　　　　((and (= (+ (/ x 3)
　　　　　　　　　　　　　　　(* y 3)
　　　　　　　　　　　　　　　(* z 5))
　　　　　　　　　　　　　 100)
　　　　　　　　　　　　(= (+ x y z) 100))
　　　　　　　　　 (display (list z y x))
　　　　　　　　　 (newline))
　　　　　　　　　(else (iter x y (+ z 1)))))))
　(iter 0 0 0))

不懂