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