$/=words;$_=<I II III IIII V VI VII VIII IX X XI XII>;say .[(.first($0,:k)+$1)%12]