Implement an algorithm to merge an arbitrary number of sorted lists into one sorted list. The aim is to create the smallest working programme, in whatever language you like.
Haskell like (158, but more than 24 spaces could be removed.):
mm = foldl1 m where m [] b = b m a [] = a m (a:as) (b:bs) | a <= b = a : m as (b:bs) | true = b : m (a:as) bs