Forth mode

x
 
1
\ Insertion sort
2
3
: cell-  1 cells - ;
4
5
: insert ( start end -- start )
6
  dup @ >r ( r: v )
7
  begin
8
    2dup <
9
  while
10
    r@ over cell- @ <
11
  while
12
    cell-
13
    dup @ over cell+ !
14
  repeat then
15
  r> swap ! ;
16
17
: sort ( array len -- )
18
  1 ?do
19
    dup i cells + insert
20
  loop drop ;

Simple mode that handle Forth-Syntax (Forth on WikiPedia).

MIME types defined: text/x-forth.