read n
m=0
for((i=0;$i<$n;i++)); do
let m=m+1
let t[i]=m
let d[i]=m*m
done
for item in ${t[*]}
do
    printf "%s\n" $item
done
for item in ${t[*]}
do
    printf "%s\n" $item
done
for item in ${d[*]}
do
    printf "%s\n" $item
done