import Data.List
import Data.Ord (comparing)
import Data.Function

lsort :: [[a]] -> [[a]]
lsort = sortBy (comparing length)

lsort' = sortBy (\xs ys -> compare (length xs) (length ys))

lsort'' = sortBy (compare `on` length)