(%stdin)(r)file 400 string readstring pop dup(CO)realtime 3 mod get 49 put =