print "above\n"; my $E = binary($k); print "below\n";