#!/usr/bin/perl

sub forward {
    for $i (1..$N){
	$alpha[1][$i] = $pi[$i]*$b[$i]{$o1};
    }
}