adam@1888: fun boom s = adam@1888: let adam@1888: val bonk = adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s adam@1888: adam@1888: val boonk = fn () => adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s adam@1888: adam@1888: fun booonk () = adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s; adam@1888: debug s adam@1888: in adam@1888: bonk; bonk; boonk (); boonk (); booonk (); booonk () adam@1888: end adam@1888: adam@1888: fun main () : transaction page = adam@1888: boom "test"; adam@1888: return