module Micro

f : forall a b. (Unit -> Unit) -> Unit -> Unit
f = id