#! /bin/sh
# -*- scheme -*-
exec guile --debug -s $0 "$@"
!#

(define-module (ikli ikli)
  #:use-module (oop goops)
  #:use-module (srfi srfi-1)
  #:duplicates (merge-generics))

(define-class <music-document> ())

(define-method (initialize (obj <music-document>) . initargs)
  (let* ((self (next-method)))
    (for-each (lambda (x) #f) '())
    (map (lambda (x) #f) '())
    self))

(define-class <notation> ()
   (music #:init-form (make <music-document>)))

(define-class <ikli-app> ()
   (notation #:init-value (make <notation>)))

(define (main)
  (format #t "HALLO\n"))

(main)