#!/usr/bin/perl
print join(' ', reverse sort grep(-T, @ARGV)), "\n";
