rewrite sample/seq/sample.f90