in reply to 1111111111
What a coincidence!
print take(10, $ones), "\n"; [download]
the lowliest monk