#!/usr/bin/env perl

use strict;
use warnings;

my ($n, $m) = split/ /,<>;
print $n <= $m ? 1 : -1;