sqr1() { s=`expr $1 \* $1`; return $s; }
