@require "wordlist"

[$title: str] @text {
    <$split_str = [split: <str>]>
    [cat: [upper: <split_str/0>] [lower: [join: <split_str/1..>]]]
}

{
    You meet {
        a `[pick: <wordlist/nouns/birds>] |
        [title: `{
            [pick: <wordlist/names/people/butlers>] |
            [pick: <wordlist/names/people/computing>] |
            [pick: <wordlist/names/people/founders>] |
            [pick: <wordlist/names/streets/chicago>] |
            [pick: <wordlist/names/streets/newyork>] |
            [pick: <wordlist/names/surnames/english>] |
            [pick: <wordlist/names/surnames/irish>] |
            [pick: <wordlist/names/surnames/scottish>]
        }] the `[pick: <wordlist/nouns/birds>]
    }. {
        It completely ignores you. |
        You have a polite conversation about birdly affairs. |
        It scoffs and flies away.
    }
} |
{
    A nearby {`[pick: <wordlist/nouns/birds>]|colony of `[pick: <wordlist/nouns/birds>]s} seems to be harassing a human.
}