Some more nested functor bug-fixing, including generating fresh internal names at applications; still need to debug issues with datatype constructors

type r = {A : int, B : int, C : float}
type string = int

val x : r = {A = 1, B = "hi", C = 2.3}