import Data.List
m@main=getLine>>=putStrLn.drop 5.show.minimum.init.f.g.map read.words>>m
f x=map(#tails x)$inits x
x#y=elemIndex x$y++[x]
g x=zipWith(-)x$tail x