#!/usr/local/bin/cz --

Main()
	Eachline(path)
		let(target, strdup(path))
		readlinks(target)
		Print(path)
		tab()
		Say(target)
		Free(target)

use b

# see also p, which reads symlinks
#for A; do
#	case "$A" in
#	/) echo / ;;
#	.) pwd ;;
#	*) echo $(canonpath "`dirname -- "$A"`")/"`basename -- "$A"`"
#	esac
#done
