nested where expressions

values :: [a]
values = value0 ++ value1
  where
    value0 =
      valueA
      ++ valueB
    value1 =
      valueA
      ++ valueC
      where
        valueA = ...
        valueB = ...
        valueC = ...

-- Problem: only value1 has valueA, valueB, valueC in scope