subtype Protocol
    => as Str
    => where { /^HTTP\/[0-9]\.[0-9]$/ };