read i
p=0
d=1
printf '\n%.0s' `seq $i`
for l in {A..Z};do
((p>i))&&((p*=-1))
((i==1))&&p=0
((p))&&echo -en "\033[s\033[${p#-}A"
[[ $l == B ]]&&l=Bash
echo -en $l"\033[s\033[${p#-}B"
((p++))
done