Fix integer parser

Before this, the number 1234 was parsed as 64 = 10*1 + 10*2 + 10*3 + 4:

    *Lightyear/Strings> :x test integer "1234"
    MkIO (\ w => prim_io_return (Just 64)) : IO (Maybe Integer)