adamc@697: fun main () = adamc@697: buf <- Buffer.create; adamc@697: let adamc@697: fun loop prefix delay = adamc@697: let adamc@697: fun loop' n = adamc@697: Buffer.write buf (prefix ^ ": Message #" ^ show n); adamc@697: sleep delay; adamc@697: loop' (n + 1) adamc@697: in adamc@697: loop' adamc@697: end adamc@697: in adamc@697: return adamc@697: adamc@697: adamc@697: end