sub shall_we {
    my $ans = prompt(
        "What'll it be?",
        -menu => { 'Yes, definitely.' => 1,
                   'No way.'          => 0 },
    );
    return $ans ? 0+$ans : undef;
}