function reduceimage {
magick "$1" \
  -resize "${2:-2000}x${2:-2000}>" \
  -strip \
  -quality 45 \
  -define webp:lossless=false \
  "${1%.*}-r.webp"
}