#!perl -la055
$/.=$".$/,$"x=3for 1..pop;print$/