#!perl -w
use strict;
use List::MoreUtils qw/apply/;

my %sections=(
    A_DMA => 'dma',
    B_FST => 'dma/fst',
    C_MRA => 'dma/mra',
    D_BKS => 'bks',
    E_MSU => 'dma/msu',
    F_FMA => 'dma/fma',
    G_FOMC => 'dma/FOMC',
);

print join("\n", apply { s/^\w_//; } sort keys %sections);