vvalue
applyCode :: (Closed uni, Everywhere uni Flat, Flat fun, Pretty fun, Everywhere uni PrettyConst, PrettyBy RenderContext (SomeTypeIn uni))=> CompiledCodeIn uni fun (a -> b)-> CompiledCodeIn uni fun a-> Either String (CompiledCodeIn uni fun b)