Partially working scrolling below list to floor items

src/ListHelp.hs

@@ -1,9 +1,13 @@
 module ListHelp 
     (module Data.List
     ,initOrNull
+    , insertOver
     )where
 import Data.List
 
 initOrNull :: [a] -> [a]
 initOrNull [] = []
 initOrNull xs = init xs
+
+insertOver :: Int -> a -> [a] -> [a]
+insertOver i x xs = take i xs ++ x : drop (i+1) xs