" To discipline me against using arrow keys in vim
if exists("Abuses_loaded")
    finish
endif
let Abuses_loaded = 1

let s:count = 0
let s:insults = ["YOU SUCK!","OBEY ME, INSECT!","OBEY ME, SUBSERVIENT BIOMASS!"]
call add(s:insults,"ENGAGE IN COPROPHILIA AND THEN EXPIRE!")
call add(s:insults,"YOU ARE NOT WORTHY OF VIM!")

function <SID>punish_me()
    let s:count = (s:count + 1) % len(s:insults)
    echohl WarningMsg | echo s:insults[s:count] | echohl None
endfunction

nmap <right> :call <SID>punish_me()<CR>
nmap <left>  :call <SID>punish_me()<CR>
nmap <up>    :call <SID>punish_me()<CR>
nmap <down>  :call <SID>punish_me()<CR>