($n,$m)=glob<>;
@a=glob<>;
$f=1;
for(@a){
    $max+=!$u{$_}++;
    $f&=$_==$a[0];
}
print $max,$",($n==$m)*$f;