Permalink
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (6 sloc) 211 Bytes
fun fact(x) = case (x ==: 0:) of {
0 => x *: fact(x - 1)
| _ => 1:
}
fun main() = let f = fact(200:) in
%WriteString(%BigString(f) ++ "\n")