#!/usr/bin/perl -w
use strict;
my $limit = $ARGV[0] || 10;

my @cycle = ( "you are", "I am" );

print map "\u$_\n", join(" glad ", reverse map $cycle[$_ % @cycle], 1 .. $limit) . " glad.";