#! /usr/local/bin/jgawk -f { while(sub(/./,"")); sub (/^/,""); print; }