fork download
  1. import Data.List
  2. main :: IO ()
  3. main = do
  4. text <- getLine
  5. print $ inits text
Success #stdin #stdout 0s 6288KB
stdin
Hello!
stdout
["","H","He","Hel","Hell","Hello","Hello!"]