read a
[ $2 ]||{
[
for((d=c,c=a;c--;)){
printf $_
. * $* ,\\40
}
c=$d a=]
}
printf $a