#!/usr/bin/env perl

use v5.12;
use Audio::NoiseGen ':all';

init();

play( gen =>
  combine( gens => [
    segment(
      gen     => \&square,
      notes => 'A2 B2'
    ),
    segment( notes => 'F G/2 G/2 F R' ),
    segment( notes => '
      C5 D5/2 E5/2 G5 G#5 E5 G5 E5 R
      C5 D5/2 E5/2 G5 G#5 E5 G5 E5 R
      G5 F5 E5 C5 R
      G5 F5 E5 C5 R
    ' ),
  ]),
);