#!perl -p00 $_^=""x(vec'',$$%6*6+$.,4).u