for A; do
	case "$A" in
	*@*)
		HOST="${A#*@}"
		A="${A%@*}"
		A="$A-subscribe@$HOST"
		;;
	*)
		A="$A-subscribe"
		;;
	esac
	echo subscribe | mail $A
	echo sent mail to $A
done