firstLit (ALit l _ : _) = l
firstLit (_ : as)       = firstLit as

k2cStringAlts b e (ALit l c : as)      
                                = (if b then text "else " else empty) <> text "if (strEq (" <> k2cExp e <>
                                    text "," <> k2cExp (ELit l) <> text ")) {" $$
                                     nest 4 (k2cNestIfCmd c) $$
                                     text "}" $$
                                     k2cStringAlts True e as
k2cStringAlts _ e [AWild c]       = text "else {" $$
                                     nest 4 (k2cNestIfCmd c) $$
                                     text "}"

k2cFloatAlts b e (ALit l c : as)      