Parameter Magma.1-First

type t
val append : t -> t -> t