VPL := [[[4, {}, 1, {{1, 5}, {2, 5}, {3, 5}, {4, 5}}, {}], [2*l, 2*m, 2], [l,
m, l, m], [1/l, 1/m, 1/l, 1/m]]];