sub genseq {
  my $seq;

  $seq .= randomaminoacid() foreach 0 .. randomlength();

  return $seq;
}