type audio

external create : string -> audio = "Audio" [@@bs.new]

external play : audio -> unit = "play" [@@bs.send]

external currentTime : audio -> int = "currentTime" [@@bs.get]

external setCurrentTime : audio -> int -> unit = "currentTime" [@@bs.set]

let playOrReplay audio =
  let () = if currentTime audio > 0 then setCurrentTime audio 0 else () in
  play audio