use like 
! "E:/download/PastedImage.bmp" load-image "bgr" 
! rotate-90 "E:/test.bmp" save-bitmap

! timing:  2dup '[ 100 [ _ _ rotate-90 drop ] times ] time