#!/usr/bin/perl

arrPrint(t(3));

sub t{$r=[($t)=@_];$r=[$t,$r]while--$t>0;$r}

sub arrPrint {
	my ($c) = @_;
	for (@{$c}) {
		if (ref eq "ARRAY" ) {
			arrPrint($_);
		} else {
			print "(${_},";
		}
	}
	print ")";
}