diff --git a/test.hs b/test.hs
new file mode 100644
index 0000000..3b2d6f5
--- /dev/null
+++ b/test.hs
@@ -0,0 +1,5 @@
+leftmostLongest :: (Foldable t) => [t a] -> t a
+leftmostLongest xs = 
+        let lastElem = (last xs)
+            filteredLst = (filter (\val -> (length val) == (length lastElem)) xs)
+        in head filteredLst