match(l:list[string])
{
    |    '0'::tail    =>    WriteLine("ok"); //Значение головы нужно
    |    '1'::tail    =>    WriteLine("ok"); //Значение головы нужно
    |    '2'::tail    =>    WriteLine("ok"); //Значение головы нужно
    |    '3'::tail    =>    WriteLine("ok"); //Значение головы нужно
    |    '4'::tail    =>    WriteLine("ok"); //Значение головы нужно
    |    '5'::tail    =>    WriteLine("ok"); //Значение головы нужно
    |    _    =>    WriteLine("bad");
}

Можно ли сократить это выражение?

P.S.: Мне язык нравится все больше и больше.