( THRU                                            load screens )

: thru                            ( n1 n2 --- )
  1+                              ( thru n2+1)
  swap                            ( swap n1 and n2)
  do
    i load                        ( load this screen)
  loop
;