vFix :: String -> String -> String -> String -> String -> String -> Value
vFix l _P _I _D p i = VFix
  (var l)
  (var _P)
  (var _I)
  (var _D)
  (var p)
  (var i)
vFix :: String -> String -> String -> String -> String -> String -> Value
vFix l _P _I _D p i = VFix
  (var l)
  (var _P)
  (var _I)
  (var _D)
  (var p)
  (var i)
vFix l _P _I _D p i = VFix
  (var l)
  (var _P)
  (var _I)
  (var _D)
  (var p)
  (var i)