#!/usr/bin/perl -w

# Program: printsth
print join (' ', @ARGV), $/ for (1..10);