selftest() ->
    Token =
        many1(in_set(
            {letter, is_in_range($a, $z)})),

    Word =
        inside(
            drop(many(char($ ))),
            Token),

    Value =
        sepBy(
            many1(Word),
            drop(chunk("\\\n"))),

    KeyValue =
        parsing(config,
            seq(tuple(), [
                parsing(key, Word),

                drop(char($=)),

                parsing(value, Value)
            ])),

    SimpleConfig = sepBy(KeyValue, drop(char($\n))),

    SimpleConfig("  key       =  va \\\n lue\n keya = valueb \n keyc = valued").