/-?/,print map($".chr$'+65+abs,@a),$/for@a=-12..12