import Char

nm = map digitToInt "73..."

m (x1:x2:x3:x4:x5:xs) = max (x1 * x2 * x3 * x4 * x5) (m (x2:x3:x4:x5:xs))
m a = 0