pcrsLocal :: [PCR]
pcrsLocal = a --b
  where a :: [PCR]
        a = map bit [0..7]

        b :: [PCR]
        b = bit 3 : map bit [1..7]
pcrsLocal :: [PCR]
pcrsLocal = a --b
  where a :: [PCR]
        a = map bit [0..7]

        b :: [PCR]
        b = bit 3 : map bit [1..7]
pcrsLocal = a --b
  where a :: [PCR]
        a = map bit [0..7]

        b :: [PCR]
        b = bit 3 : map bit [1..7]