@main[]
$list[^file:list[415_dir;.*\.p]]
^list.sort{$list.name}
^list.menu{
    ${list.name}: ^try-catch{ ^use[415_dir/$list.name] }
}

@try-catch[jCode]
$result[]
^try{$jCode}{
	$exception.handled(true)
	$result[$exception.comment]
}