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