#!/usr/bin/perl

my $iterations = 10;

sub f($) {
if ( $_[0] <>
for ( my $i = 0; $i < $iterations; ++$i ) { print f( $i ) . "\n"; }