adam@1307: fun more n =
adam@1307:     if n <= 0 then
adam@1307:         "!"
adam@1307:     else
adam@1307:         more (n-1) ^ more (n-1)
adam@1307: 
adam@1334: fun main n =
adam@1334:     debug "Let's give this a try....";
adam@1334:     return <xml>{[more n]}</xml>