#!/usr/bin/perl
use strict;
use warnings;

sub random_element {
	local $[ = int(rand($#_));
	$_[0];
}

for (1..50) {
	print random_element qw(a b c d e f g h i j k);
}