#!/bin/ksh -p
# Translates command line / input from English to Pseudo-Welsh ...

if (( $# > 0 )) ; then
  set -A sentence "null" $*
else
  set -A sentence "null $( line )"
fi

set -A lengths ${sentence[*]}
count=0

for a in ${sentence[*]} ; do
 lengths[$count]=$( expr "$a" : ".*" )
 count=$(( count + 1 ))
 echo ${lengths[$count]}
done

sentence=$( echo ${sentence[*]} | sed 's/ //g' )
count=$( expr "$sentence" : ".*" )
set -A sentence $( echo $sentence | sed 's/./& /g' )
len=1

while (( $len <= ${#lengths} )) ; do

 while (( ${lengths[$len]} > 0 )) ; do

  print -n ${sentence[$count]}
  count=$((count - 1))
  lengths[$len]=$((lengths[$len] - 1))

 done

 len=$((len + 1))
 print -n " "

done
echo ""