func main()
	var ans: int :: 1
	for(1, 3)
		var s: []char :: cui@input()
		do ans :* (16 - (s = "NONE" ?(0, ^s.split(",")))) ^ 2
	end for
	do cui@print("\{ans}\n")
end func