print take(10, $ones), "\n";