($n,$m,$x,$y)=glob<>;@a=sort{$b-$a}grep$_>$y,glob<>;$s+=$a[$_]for 0..$m-1;print$a[$m]<$x?$s+0:Handicapped