read a;$a||(x=1;for b in $a;{ for c in ${a#* $b};{((x=b*c>c*c?-x:x));};};echo $x;. *)