pcrSelect :: TPMRequest -> [PCR]
pcrSelect mask = 
    [ x | (x, n) <- zip pcrsLocal [0..7], testBit mask n]
pcrSelect :: TPMRequest -> [PCR]
pcrSelect mask = 
    [ x | (x, n) <- zip pcrsLocal [0..7], testBit mask n]
pcrSelect mask = 
    [ x | (x, n) <- zip pcrsLocal [0..7], testBit mask n]