import Data.List
c s n l|nub>>=(==)$take s l=s+n|(_:l)<-l=c s(n+1)l
main=interact$show.((,).c 4 0<*>c 14 0)