$$_=glob<>.<>for a..d;print chr 61+($a*$d<=>$b*$c)