while read line; do
	if [ ".$line" = ".Attached devices:" ]; then
		continue;
	fi
	ID=$line
	read ignore;
	read line;
	echo $ID '  \c'
	echo "$line" | awk '{print $2}'
#done <test_scanscsi | sort | (
done </proc/scsi/scsi | sort  | (
	NUMBER=0
	while read line; do
		echo $line ' -> ' /dev/sg`printf "\x$[$NUMBER + 61]"` or /dev/sg$NUMBER
		NUMBER=$[$NUMBER + 1]
	done;
) | grep "WORM\|CD-ROM"






