Re: outputting fun

[cwest]

in reply to outputting fun

BEGIN{$_=7 # Change this number to control pivot
-1}foreach $.(int(length()/2)..length()-2){print
((/\s/?s/\w(\s+)\w/ $1 /:s/(\w{$;})./$1 /)?$_:1)
;}BEGIN{($;,$_,$\)=($_,join(''=>chr(65)..chr(65+
$_),reverse(chr(65)..chr(65+$_-1))),$/);print}

because I'm nuts, that's why :-)

--
Casey