quality=90
mkdir -p .orig
for F; do
	jpegfile "$F" |
	while read W H; do
		if [ "$H" -gt "$W" ]; then
			echo "rot $F"
			mv "$F" .orig/ && <.orig/"$F" jpegtopnm | pnmflip -ccw | pnmtojpeg -quality=$quality >"$F"
		else
			echo "    $F"
		fi
	done
done