#!/usr/bin/perl
require 'bag.pl';

&defclass ('set','bag');
&defmethod('set','put',    '$elements{$_[0]}=1;');
&defmethod('set','size',   'length(%elements);');

1;