#!/bin/ksh
to_upper |&
line_count=0
#coproc to_upper
while read pathname; do
	((line_count=line_count+1))
	print "$pathname" >&p
	read newpath <&p
	print $line_count: "$newpath" | tr '/' '\\'
done