main=putStrLn.show.(\a->if (a>14) then a-7 else -1).read=<<getLine