pDB = strOption (long "database"
                 <> short 'd'
                 <> metavar "FILENAME"
                 <> value "nlp.db"
                 <> showDefault
                 <> help h)
  where h = "Filename of database to analyze"
pDB = strOption (long "database"
                 <> short 'd'
                 <> metavar "FILENAME"
                 <> value "nlp.db"
                 <> showDefault
                 <> help h)
  where h = "Filename of database to analyze"
pDB = strOption (long "database"
                 <> short 'd'
                 <> metavar "FILENAME"
                 <> value "nlp.db"
                 <> showDefault
                 <> help h)
  where h = "Filename of database to analyze"