c=`perl -e 'if ( $ARGV[0] < $ARGV[1]} ) { print "1\n"; } else { print "0\"; }' $a $b`