diff --git a/Print2DListLex.hs b/Print2DListLex.hs
index aa895ae1a61e0480d364f17eb3221cd2c8347f89..0d853565c691e55f286a611c6fbfee63d609ba2e 100644
--- a/Print2DListLex.hs
+++ b/Print2DListLex.hs
@@ -1,13 +1,7 @@
 import Data.List
-import Data.Char
-import Data.Sequence
 
--- | Function print2aaaDListLex
--- 1. takes in a list of records
--- 2. prints them in lexicographical order
-print2DListLex :: [[String]] -> IO()
-print2DListLex (record:records) = sortBy () records
+type Row = [String]
 
--- | rearran
-rearrange :: [[String]] -> [[String]]
-rearrange record
\ No newline at end of file
+-- | Takes in a list of rows and prints them in lexicographical order
+print2DListLex :: [Row] -> IO()
+print2DListLex rows = returnIO $ sort rows