: normalize ( vector3 -- normalized-vector3 ) [ length ] keep [ x>> swap / ] [ y>> swap / ] [ z>> swap / ] 2tri vector3 boa ;