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