main = do
#ifdef DEBUG
  hPutStrLn stderr "DEBUG MODE!"  
#endif
  input <- BSL.getContents 
  mapM_ BSL.putStrLn (sortBy (comparing firstColumnSize) $ BSL.split (e2e '\n') input)

{- TEST:

1
2
3
1,1k
2,1m
3,1g
1,1K
2,1M
3,1G

-}
main = do
#ifdef DEBUG
  hPutStrLn stderr "DEBUG MODE!"  
#endif
  input <- BSL.getContents 
  mapM_ BSL.putStrLn (sortBy (comparing firstColumnSize) $ BSL.split (e2e '\n') input)

{- TEST:

1
2
3
1,1k
2,1m
3,1g
1,1K
2,1M
3,1G

-}
main = do
#ifdef DEBUG
  hPutStrLn stderr "DEBUG MODE!"  
#endif
  input <- BSL.getContents 
  mapM_ BSL.putStrLn (sortBy (comparing firstColumnSize) $ BSL.split (e2e '\n') input)

{- TEST:

1
2
3
1,1k
2,1m
3,1g
1,1K
2,1M
3,1G

-}