#!/usr/bin/tclsh

source "apples.tcl"

apple a1
apple a2 -color yellow -size 3
apple a3 -color red -price 12

puts "# Writing apples..."
write_objects apple a1 a2 a3

delete_apple a1 a2 a3