$ :=list(0,1,2,3,4,5,6,7,8,9) File standardInput foreach(v,$indexOf(v=v-48)print;$remove(v)prepend(v))