main :: [sys_message]
main = [Stdout (lay (map show [
             order [1,2,1,3,2] [1,2,0,4,4,0,0,0],
             order [1,2,0,4,4,0,0,0] [1,2,1,3,2]]))]

order :: [*]->[*]->bool
order as     []     = True
order []     as     = False
order (a:as) (b:bs) = a < b, if a ~= b
                    = order as bs, otherwise