======================== gateway.ml
open Osc.Types

let client = Osc_unix.Udp.Client.create ()
let address = Unix.ADDR_INET (Unix.inet_addr_of_string "127.0.0.1", 4557)

let run code =
  let message = (Message {address = "/run"; arguments = [String code]}) in
  Osc_unix.Udp.Client.send client address message

let () =
  run "play 60\n sample :loop_amen"

========================== _oasis
OASISFormat: 0.4
BuildTools: ocamlbuild
Plugins: META (0.4), DevFiles (0.4)

Executable "gw"
  Path: .
  MainIs: gateway.ml
  BuildDepends:
    osc,
    osc.unix,
    unix