program test_repeat

  write (*, '(a)') repeat ('ha', 5)

end program test_repeat