genFill seed = (r1,r2,r3,r4,r5,r6) where
    [r1,r2,r3,r4,r5,r6] = genList (0,15) 6 seed
genFill seed = (r1,r2,r3,r4,r5,r6) where
    [r1,r2,r3,r4,r5,r6] = genList (0,15) 6 seed
genFill seed = (r1,r2,r3,r4,r5,r6) where
    [r1,r2,r3,r4,r5,r6] = genList (0,15) 6 seed