f(){
s=`awk c+=NF`
set $s
n=$#
while [ $n = $# ];do t=$s;n=$#;s=`cut -b2-<<<"$s"`;set $s;done
rev<<<"$t"
}
f|f