sub transitions
{
    my $self = shift;
    if (@_)
    {
        $self->{TRANSITIONS} = shift;
        &_build_prob_table($self);
    }
    return $self->{TRANSITIONS};
}