module soundbrotch

  implicit none
  ! ---------------------------------------------------------
  type t_sample
    integer             :: left
    integer             :: right
  end type

  ! ---------------------------------------------------------

  contains

  ! ---------------------------------------------------------

  subroutine soundbrotch_version ()

    write(0, '(A)') "*** this is soundbrotch version alpha 666"

  end subroutine

  ! ---------------------------------------------------------

end module