--withOpenSSL
          
mkTPMRequest :: [Word8] -> IO (TPM_PCR_SELECTION, TPM_NONCE)
mkTPMRequest xs = do 
  let max = 24  -- <- tpm_getcap_pcrs tpm  --Maybe add this to assumptions?(24)
  nonce <- nonce_create
  let selection = tpm_pcr_selection max xs
  return (selection, nonce)
mkTPMRequest :: [Word8] -> IO (TPM_PCR_SELECTION, TPM_NONCE)
mkTPMRequest xs = do 
  let max = 24  -- <- tpm_getcap_pcrs tpm  --Maybe add this to assumptions?(24)
  nonce <- nonce_create
  let selection = tpm_pcr_selection max xs
  return (selection, nonce)
mkTPMRequest xs = do 
  let max = 24  -- <- tpm_getcap_pcrs tpm  --Maybe add this to assumptions?(24)
  nonce <- nonce_create
  let selection = tpm_pcr_selection max xs
  return (selection, nonce)