А еще эффективнее будет использовать записи типа case of (меньше памяти)