1 files changed, 7 insertions, 0 deletions
diff --git a/freedomain/sorti.hs b/freedomain/sorti.hs
new file mode 100755
index 0000000..3c3f8cd
--- /dev/null
+++ b/freedomain/sorti.hs
@@ -0,0 +1,7 @@
+#!/usr/bin/env stack
+-- stack --resolver lts-12.5 script
+
+import Data.List
+import Data.Function
+
+main = interact $ unlines . sortBy (compare `on` length) . lines