import Data.List

main = getContents >>= print . nyanpass . transpose . map words . tail . lines

nyanpass xss = case findIndices (==1) $ map (length . filter (/= "nyanpass")) xss of {[x] -> x+1; _ -> -1}