lex[a,b] := lexicalCompare[a, b] < 0 ? true : false

println[lex[ [1,2],     [1,2,3] ]]
println[lex[ [1,2,4,3], [1,2,3] ]]