var (
	Empty = Initial{}

	SetLastName = F.Curry2(func(name string, s1 Initial) WithLastName {
		return WithLastName{
			Initial:  s1,
			LastName: name,
		}
	})

	SetGivenName = F.Curry2(func(name string, s1 WithLastName) WithGivenName {
		return WithGivenName{
			WithLastName: s1,
			GivenName:    name,
		}
	})
)

var Upper = strings.ToUpper

type Initial struct {
}

type WithGivenName struct {
	WithLastName
	GivenName string
}

type WithLastName struct {
	Initial
	LastName string
}