SP
Size: a a a
SP
SP
SP
NL
let gen = QCheck.Gen.(
let bind x f = (>>=) x f in
let* username = Gen.username in
return @@ create username
)p
p
p
p
KR
SP
p
p
KR
p
p
SP
let gen = QCheck.Gen.(
let bind x f = (>>=) x f in
let* username = Gen.username in
return @@ create username
)p
p
p
KR