Something

>> backward([1; 1], S)

ans =

    0.6933    0.4079    0.7502    0.5102    0.2016    0.4112    0.7534    0.5169    0.8393    0.7452
    0.3067    0.5921    0.2498    0.4898    0.7984    0.5888    0.2466    0.4831    0.1607    0.2548

>> forward([0.5; 0.5],  [4;1;2;3;1;1;3;1;5;6])

ans =

  Columns 1 through 10

    0.5000    0.8065    0.3786    0.7376    0.9027    0.4906    0.1682    0.5608    0.2020    0.5962
    0.5000    0.1935    0.6214    0.2624    0.0973    0.5094    0.8318    0.4392    0.7980    0.4038

  Column 11

    0.8504
    0.1496