#!/bin/bash
#
# $Id$
#

if [ "$1" = "-r" ]; then
  shift
  sort_opts="-r"
fi

awk 'BEGIN { FS=RS }; { print length, $0 }' ${1+"$@"} |
sort -n $sort_opts |
sed 's/^[0-9][0-9]* //'