Beating C with 34 lines of Standard ML
gist.github.com