<>; //,@$_=sort{$a-$b}map{($'+$_)%12}0,2,4,5,7,9,11for 0..11; @T=map"\\b$_\\b",glob<>; $"='.*'; @g=grep"@$_"=~"@T",0..11; print@g==1?@g:-1,$/