parseItemList ("a":name:"microchip":xs) =
    ('M', take (length name - 10) name) : parseItemList xs
parseItemList ("a":name:"microchip":xs) =
    ('M', take (length name - 10) name) : parseItemList xs
parseItemList ("a":name:"microchip":xs) =
    ('M', take (length name - 10) name) : parseItemList xs