#!/usr/bin/perl -w

@in = <>;

print sort { length($b) <=> length($a) } @in;