flattenCopy dst (t:ts) (l:ls) cLen = call "copyArrayPos" [dst, ValueParameter cLen, t]
                                   : flattenCopy dst ts ls (ePlus cLen l)
flattenCopy dst (t:ts) (l:ls) cLen = call "copyArrayPos" [dst, ValueParameter cLen, t]
                                   : flattenCopy dst ts ls (ePlus cLen l)
flattenCopy dst (t:ts) (l:ls) cLen = call "copyArrayPos" [dst, ValueParameter cLen, t]
                                   : flattenCopy dst ts ls (ePlus cLen l)