May contain nuts
^Wprofanity. You have been warned.
perl -lwe 'print"\r^\n\a"^"\eN\e"^substr$^X,-4while!select$,,$,,$%,.25'
(Also I believe this won't work on Mac OS classic or anything EBCDIC, but it ought to be portable to most other platforms, although you may need to adjust the shell quoting)