#!/bin/sh

fx="$1"; export fx
[ ! "${fx}" ] && exit
[ ! -s "${fx}" ] && exit

wrk="tmp/do90.$$.wrk"; export wrk

row="$( head -1 ${fx} )"; export row
xcol="${#row}"; export xcol

while [ ${xcol} -gt 0 ]
do
<${fx} cut -c ${xcol}-${xcol} | tr -d "\n"
echo ""
xcol="$(( ${xcol} - 1 ))"; export xcol
done >${wrk}
cp ${wrk} ${fx}