read {A..D} for((;A>0;A+=B*~(A>B*24?E+=12,D+11:(++E-C+12)%12