myList = IntegerDigits[
   7316717653133062491922511967442657474235534919493496983520312774506\
3262395783180169848018694788518438586156078911294949545950173795833195\
2853208805511125406987471585238630507156932909632952274430435576689664\
8950445244523161731856403098711121722383113622298934233803081353362766\
1428280644448664523874930358907296290491560440772390713810515859307960\
8667017242712188399879790879227492190169972088809377665727333001053367\
8812202354218097512545405947522435258490771167055601360483958644670632\
4415722155397536978179778461740649551492908625693219784686224828397224\
1375657056057490261407972968652414535100474821663704844031998900088952\
4345065854122758866688116427171479924442928230863465674813919123162824\
5861786645835912456652947654568284891288314260769004224219022671055626\
3211111093705442175069416589604080719840385096245544436298123098787992\
7244284909188845801561660979191338754992005240636899125607176060588611\
6467109405077541002256983155200055935729725716362695618826704282524836\
00823257530420752963450];

ans = Max[
  Times @@@ Table[Take[myList, {i, i + 12}], {i, 1, 1000 - 12}]]