include pick
import pick as ...
pick-none :: Pick<a, b>pick-some :: (elt :: a, rest :: b) -> Pick<a, b>is-pick-none :: (val :: Any) -> Booleanis-pick-some :: (val :: Any) -> Boolean