($a,$b)=glob<>; $a=$a*60+$b; $b=$b*12; $a=($a-$b)%720; print int $a*3600*12/720/11;