REBOL[]loop 300[print join a: do ask"digital_root("[")="9 - mod - a 9]]