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