#!/usr/bin/perl -w



use strict;



print max(233,121,89,-123) . "
";

print min(6743,-235,0,76,121) . "
";



sub min {

        my $min = shift;

        foreach (@_) {

                if ($_ < $min) {

                        $min = $_;

                }

        }

        return $min;

}



sub max {

        my $max = shift;

        foreach (@_) {

                if ($_ > $max) {

                        $max = $_;

                }

        }

        return $max;

}