;;; -*- logo -*-

to xcor
output first pos
end

bury "xcor