#!/usr/bin/awk -f
# Convert raw sequences to fasta format.

BEGIN {
  width=60;
  definitions="";
}

1 == NR {
  sub( /^>/, "", definitions );
  numdefs = split( definitions, definition, />/ );
  defnum = 1;
}

{
  defline = "?";
  if ( defnum <= numdefs ) {
    defline = definition[ defnum++ ];
  }
  print ">" defline;
  left = $0;
  while ( left ) {
    line = substr( left, 1, width );
    left = substr( left, width + 1 );
    print( line );
  }
}