#!/usr/bin/perl
undef$/;while(<>){split;push@_,($a,$b)=@_[0,1];while(@_>2){$h{$_[0]}{$_[1]}{$_[2]}++;shift@_;}}for($n=400;$n--;){%W=%{$h{$a}{$b}};$T=0;foreach$w(keys%W){$T+=$t=$W{$w};if($t/$T>rand){$c=$w}}$a=$b;print$b=$c," ";}print"\n";