-- #AUTO-IMPORTED
-- import Basics exposing (..)
-- import List exposing ( List, (::) )
-- import Maybe exposing ( Maybe( Just, Nothing ) )
-- import Result exposing ( Result( Ok, Err ) )
-- import String
-- import Tuple
--
-- import Debug
--
-- import Platform exposing ( Program )
-- import Platform.Cmd exposing ( Cmd, (!) )
-- import Platform.Sub exposing ( Sub )


module Main exposing (..)

import Html exposing (text)
import Dict exposing (..)
import Task exposing (fail)


type Stock
    = Stock String Int


library1 : List Stock
library1 =
    [ Stock "ABART" 20
    , Stock "CDXEF" 50
    , Stock "BKWRK" 25
    , Stock "BTSQZ" 89
    , Stock "DRTYM" 60
    ]


categories1 : List Char
categories1 =
    [ 'A'
    , 'B'
    , 'C'
    , 'W'
    ]


stockList : List Stock -> List Char -> List ( Char, Int )
stockList st cs =
  ...

main =
    text (toString (stockList library1 categories1))