mutual
data Delay (A : Set) : Set where
  now   : A        → Delay A
  later : Delay′ A → Delay A
record Delay′ (A : Set) : Set where
  coinductive
  field force : Delay A