diff --git a/server.dyalog b/server.dyalog
index 5ab3788..6840b6a 100644
--- a/server.dyalog
+++ b/server.dyalog
@@ -55,13 +55,13 @@ calendars ← ⍬
 ∇
 
 ∇ Z ← add_new_bookable data
-     calendars,← ⊂((⊃data) ((0 0 0) (0 0 0) (0 0 0)))
+     calendars,← ⊂#.Calendar.new_calendar (⊃data) 3 3
      Z ← 'added a new calendar for ',⊃data
 ∇
 
 ∇ set_up_calendars
-     calendars ← ⊂('person1' ((0 0 0) (0 0 0) (0 0 0)))
-     calendars,← ⊂('room1'   ((0 0 0) (0 0 0) (0 0 0)))
+     calendars ← ⊂#.Calendar.new_calendar 'person1' 3 3
+     calendars,← ⊂#.Calendar.new_calendar 'room1' 3 3
 ∇
 
 :EndNameSpace
\ No newline at end of file