lines
{
    diff #(list-list)
    group
    ">"
    join
    "v"
    @4
    group
        head
    m1
}
fold