adam@1522: fun makeList n = if n = 0 then [] else 1 :: makeList (n - 1) adam@1522: adam@1522: fun doit {N = n} = return {[List.length (makeList (readError n))]} adam@1522: adam@1522: fun main () = adam@1522: return adam@1522:
adam@1522: