#! /usr/bin/perl
# Copyright 2012 by L. Ross Raszewski 
# All Rights Reserved
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
# * Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# * Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# * The name of L. Ross Raszewski may not be used to endorse or promote 
#    products derived from this software without specific prior 
#    written permission.

# THIS SOFTWARE IS PROVIDED BY L. ROSS RASZEWSKI ''AS IS'' AND ANY
# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
# DISCLAIMED. IN NO EVENT SHALL L. ROSS RASZEWSKI BE LIABLE FOR ANY
# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

my @lines = ();
while (<>)
{
 push @lines, $_;

}

@alines = sort hsr @lines;

foreach (@alines) { print $_; }


sub convert 
{
	my $a = shift;
	$a=$1*1024 if $a =~ m/^[ \t]*([0-9.]+)k/i;
	$a=$1*1024*1024 if $a =~ m/^[ \t]*([0-9.]+)m/i;
	$a=$1*1024*1024*1024 if $a =~ m/^[ \t]*([0-9.]+)g/i;
	$a=$1*1024*1024*1024*1024 if $a =~ m/^[ \t]*([0-9.]+)t/i;
	$a=$1 if $a =~m/^[ \t]*([0-9.]+)/i;
	return $a;


}
sub hsr
{
	my $x = convert($a);
	my $y = convert($b);
	return $x <=> $y;
		


}