@main[]

$o[^c::create[]]
^o.method[]

@CLASS
c

@create[]
$data[^hash::create[]]

@GET_DEFAULT[n]
$result[$data.$n]

@SET_DEFAULT[n;v]
$data.$n[$v]

@method[][str;h]
$str[2002.01.01]
^str.match[(\d+)\.(\d+)\.(\d+)][]{
	y $match.1, m $match.2, d $match.3
	$match.CLASS_NAME
}

$h[^hash::create[ $.1[v1] $.2[v2]]]
^h.foreach[k;v]{ $k = $v }

^for[i](1;5){$i}[,]