preprocess :: Array -> Array
preprocess array
    | enginetunings array > 15 = fixarray array
    | otherwise = array
    where   enginetunings passedarray = read $ passedarray ! 26
        fixarray passedarray = passedarray // [(7, fixedspeed),(8,fixedaccel),(26,fixedengine)]
        fixedspeed = show $ (read $ array ! 7) * $ 1 + ((read $ array ! 26) - 15) * 0.1