Paste: Random snippet from vector normalization

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