Вот

yes 15.02.2004 11:57

$str[6.15, 6.45, 7.15, 7.45, 8.10, 11.20, 14.10, 16.40, 20.30 "Вести Регион-Тюмень".]
$spliter[^str.match[[0-9]{1,2}\.[0-9]{1,2}\s][']]
$t[^str.split[$spliter.match;v]]
$time[${t.piece}$spliter.match]
^t.offset(-1)
$item[$t.piece]
$time[^time.split[, ;v]]
$table[^table::create{time	item
^time.menu{$time.piece	$item
}}]