genPoke (CStruct name  sums) = concat $ zipWith (\ix ft -> genPokeUnion' ix name ft) [1..] sums
genPoke (CStruct name  sums) = concat $ zipWith (\ix ft -> genPokeUnion' ix name ft) [1..] sums
genPoke (CStruct name  sums) = concat $ zipWith (\ix ft -> genPokeUnion' ix name ft) [1..] sums