diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
--- /dev/null
+++ b/CHANGELOG.md
@@ -0,0 +1,5 @@
+# Revision history for html-presentation-text
+
+## 0.1.0.0 -- 2022-01-18
+
+* First version. Released on an unsuspecting world.
diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,20 @@
+Copyright (c) 2022 OleksandrZhabenko
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
diff --git a/Main.hs b/Main.hs
new file mode 100644
--- /dev/null
+++ b/Main.hs
@@ -0,0 +1,55 @@
+-- |
+-- Module : Main
+-- Copyright : (c) OleksandrZhabenko 2022
+-- License : MIT
+-- Stability : Experimental
+-- Maintainer : olexandr543@yahoo.com
+--
+-- Simple tool to create html presentation for text. The html and css template is taken from different tutorials
+-- in the Internet (with changes). The idea is to post some text on the background partially transparent image.
+
+module Main where
+
+import Data.Lists.FLines (newLineEnding)
+import System.Environment (getArgs)
+import CLI.Arguments
+import CLI.Arguments.Parsing
+import CLI.Arguments.Get
+import Data.Monoid (mconcat,mappend)
+
+main :: IO ()
+main = do
+ args <- getArgs
+ let argsB = fst . takeBsR bSpecs $ args
+ file = mconcat . getB "f" $ argsB
+ image = mconcat . getB "i" $ argsB
+ header = (\ts -> if null ts then "Заголовок" else ts) . mconcat . getB "h" $ argsB
+ top = (\ts -> if null ts then "20" else ts) . mconcat . getB "t" $ argsB
+ right = (\ts -> if null ts then "20" else ts) . mconcat . getB "r" $ argsB
+ paddingleftright = (\ts -> if null ts then "15" else ts) . mconcat . getB "p" $ argsB
+ fontsize = (\ts -> if null ts then "100" else ts) . mconcat . getB "s" $ argsB
+ opacity = (\ts -> if null ts then "0.5" else ts) . mconcat . getB "o" $ argsB
+ width = (\ts -> if null ts then "1080" else ts) . mconcat . getB "w" $ argsB
+ maxwidth = (\ts -> if null ts then "100" else ts) . mconcat . getB "m" $ argsB
+ backgroundcolor = (\ts -> if null ts then "#025abb" else ts) . mconcat . getB "b" $ argsB
+ color = (\ts -> if null ts then "#fed501" else ts) . mconcat . getB "c" $ argsB
+ text <- readFile file
+ let lineS = concatMap (\xs -> " " `mappend` xs `mappend` " " `mappend` newLineEnding) . lines $ text
+ appendFile (header ++ ".html") $ mconcat ["", newLineEnding, "", newLineEnding,
+ "", newLineEnding, "",
+ newLineEnding, "",
+ newLineEnding, "", newLineEnding, "", newLineEnding, "", newLineEnding, "