$:  p=[p=cord q=prom r=cord]
    q=(list cord)
    r=(list ?(tank [%stem p=@da q=tank r=tank]))
==