Fixed issue with datatype constructors inside functors; now on to some problem with modules inside functors

fun main [r] (r : $([A = int] ++ ([B = float] ++ r))) : $([A = float] ++ ([B = int] ++ r)) = r