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

if ($#argv > 0) then
  set sentence = ( $* )
else
  set sentence = ( `echo $<` )
endif

set lengths = ( $sentence )
@ count = 1

foreach a ( $sentence[*] )
 @ lengths[$count] = `expr "$sentence[$count]" : ".*"`
 @ count++
end

set sentence = `echo $sentence|sed 's/ //g'`
@ count = `expr "$sentence" : ".*"`
set sentence = `echo $sentence | od -c | sed 's/[0-9].....[0-9]//g'`
@ len = 1

while ( $len <= $#lengths )

 while ( $lengths[$len] > 0 )

  echo -n $sentence[$count]
  @ count--
  @ lengths[$len]--

 end

 @ len++
 echo -n " "

end
echo ""