#! /usr/bin/env stack
-- stack --resolver lts-12.20 --install-ghc script
module Main where

import Common
import Data.List (tails)

main = print $ fst $ head
     $ dropWhile ((/= inputDigits) . take (length inputDigits) . snd)
     $ zip [0..] $ tails $ scores ()
   where inputDigits = digits input