diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -6,6 +6,7 @@
 import Data.HashMap.Strict (delete)
 import Control.Monad       (when)
 import Control.Lens
+import Control.Applicative
 
 import qualified Data.ByteString.Lazy.Char8 as C
 import System.Console.ArgParser
@@ -24,12 +25,18 @@
 parser :: ParserSpec ProgArgs
 parser = ProgArgs
     `parsedBy` reqPos   "name"  `Descr` "Namecoin name id"
-    `andBy`    optPos   "http://dns.dnschain.net/" "url"
+    `andBy`    optFlag   "http://dns.dnschain.net/" "url"
                                 `Descr` "Use custom dnschain API url"
     `andBy`    boolFlag "local" `Descr` "Use local namecoind db"
     `andBy`    boolFlag "block" `Descr` "Show blockchain data (require local connecton)"
     `andBy`    boolFlag "raw"   `Descr` "Print raw JSON data"
 
+interface :: IO (CmdLnInterface ProgArgs)
+interface =
+    (`setAppDescr` "Query the namecoin blockchain") <$> 
+    (`setAppEpilog` "Stat rosa pristina nomine, nomina nuda tenemus.") <$>
+    mkApp parser
+
 exec :: ProgArgs -> IO ()
 exec args@ProgArgs{..} =
     if local
@@ -54,4 +61,4 @@
                 Nothing  -> "Error parsing data"
 
 main :: IO ()
-main = mkApp parser >>= flip runApp exec
+main = interface >>= flip runApp exec
diff --git a/rosa.cabal b/rosa.cabal
--- a/rosa.cabal
+++ b/rosa.cabal
@@ -1,5 +1,5 @@
 name:                rosa
-version:             0.1.0.0
+version:             0.1.1.0
 synopsis:            Query the namecoin blockchain
 description: