@b=glob<>;<>;@d=1;
for$e(glob<>){$d[$_+!($e<$b[$_]|/3/)]+=$d[$_]for 3,2,1,0}
print$d[3]+0