awk 'BEGIN { printf "請輸入數字："; getline num < "-"; \
for(n=1;n<=10**num-1;n++) { s=""; split(n,a,""); for(i in a) if(match(s,a[i])) break; else s=s a[i]; \
if(s==n) print n } }'