$n=<>;
@a=(0,map($_*3+6+($_*3>$n*2)*3,2..$n));
@a[-1]+=(9,7,4)[$n%3];
@a[-2]+=(0,0,4)[$n%3];
@b=map($_*3+7,1..$n);
print"@a @b";