series :: [(Double, Double)]
series = (1,1):((\(i, acc) -> (i+1, acc + 1/(i+1))) <$> series)

main = interact $ show 
  . (\[m,n] -> (fromIntegral (m*n)) * (snd $ series !! (m*n-1))) 
  . map read
  . words