⁶...but feel free to improve it and send patches to the Free Pascal development team...