※ 引述《mikemagic88 (Mikemagic88)》之铭言：
: 使用者输入1 印1-9
: 使用者输入2 印1-98 (11, 22, 33等重复的不印)
: 使用者输入3 印1-987 (121, 988, 667等有重复的不印)
\ 8th 1-9.8th
: check /(.).*\1/ r:/ ;
: run dup >s check null? if drop . cr else drop drop then ;
: main "num? " . ' run 1 10 gets >n 10 mod n:^ 1- loop ;
main