oforth --P"1000 seq map(#sqrt) sum print"