adam@1327: fun listHell n =
adam@1327: if n <= 0 then
adam@1327: []
adam@1327: else
adam@1327: n :: List.append (listHell (n-1)) (listHell (n-1))
adam@1327:
adam@1327: fun doit r =
adam@1327: Transactional.foo;
adam@1327: return {[listHell (readError r.N)]}
adam@1327:
adam@1327: fun main () = return
adam@1327:
adam@1327: