$/=get.words;$_=$1*(12+$3);say (+$0 div$_)*12+($0%$_,*-($3>($++%12+1-$2)>=0)*$1-$1...^0>=*)