#!/usr/bin/perl

use warnings;
use strict;

my $wert = 23;

chomp(my $vergleich = <STDIN>);

print "GLEICH\n" if $wert == $vergleich;