Try to create stock database reader in haskell