diff --git a/README.md b/README.md
index 5c95214..afc06ea 100644
--- a/README.md
+++ b/README.md
@@ -4,6 +4,11 @@ Haskell Language Tests
 
 
 
+```shell
+$ stack helloworld.hs
+```
+
+
 New project:
 ```shell
 $ stack new sample
@@ -11,4 +16,4 @@ $ cd sample/
 $ stack setup
 $ stack build
 $ stack exec sample-exe
-```
\ No newline at end of file
+```
diff --git a/explore.hs b/explore.hs
new file mode 100644
index 0000000..0fcfd8f
--- /dev/null
+++ b/explore.hs
@@ -0,0 +1,20 @@
+#!/usr/bin/env stack
+{- stack script
+ --resolver nightly-2019-12-22
+ --install-ghc
+ --package "servant-server warp"
+ --ghc-options -Wall
+-}
+{-# LANGUAGE DataKinds, TypeOperators, TypeApplications #-}
+
+module FileServer where
+
+import Network.Wai.Handler.Warp( defaultSettings, runSettings, setBeforeMainLoop, setPort)
+import Servant (Proxy(Proxy), Raw, serve, serveDirectoryWebApp)
+
+main :: IO ()
+main = runSettings settings . serve (Proxy @Raw) $ serveDirectoryWebApp "."
+  where port = 8080
+        msg = "serving on http://localhost:" ++ show port ++ "/{pathToFile}"
+        settings = setPort port $ setBeforeMainLoop (putStrLn msg) defaultSettings
+
diff --git a/helloworld.hs b/helloworld.hs
new file mode 100644
index 0000000..76424db
--- /dev/null
+++ b/helloworld.hs
@@ -0,0 +1,5 @@
+{- stack script 
+ --resolver lts-14.18
+-}
+main :: IO ()
+main = putStrLn "Hello World!"