let rec join = function
    | p::ps, q::qs -> p::join(ps, q::qs)
    | [p], q::qs -> line(p,q)::qs
    | _,_ -> [];;