#!perl -anlF, print$"x($_=$_*8%13),$F[2]while$F[1]--