UnitPicture
"tall"
{ { newpath
    0 0 1 1 rectpath
    random setgray
    fill } dlist }
20 60