paper 0
pen 100
command long a b c d
{
line a b c d
line (a+10) (b-10) (c+10) (d-10)
}
long 10 10 90 90