unmarshallVariants4   a b c d p
      = readVariants4 a b c d p `always` freeMemVariants 4 p
unmarshallVariants4   a b c d p
      = readVariants4 a b c d p `always` freeMemVariants 4 p
unmarshallVariants4   a b c d p
      = readVariants4 a b c d p `always` freeMemVariants 4 p