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

{
  open my $fh, '<', 'md2tex/first.tex';
  while (my $line = <$fh> ) {
    print "$line";
  }
  close $fh;
}

open my $fh, '<', 'anatofuz-sigos.md';
while (my $line = <$fh>) {
  if ($line =~/^#/) {
    $line =~ s/# (.*)/\\section{$1}/;
  }
  print $line;
}
close $fh;

print <<'EOF';

\nocite{*}
\bibliographystyle{ipsjunsrt}
\bibliography{anatofuz-bib}


\end{document}
EOF