$ perl -e 'print join(" ", map { chr(33+$_), chr(33+$_+1) } map {10*$_} 0 .. 8)'
! " + , 5 6 ? @ I J S T ] ^ g h q r