http://qiita.com/shunsugai@github/items/971a15461de29563bf90
ズンドコって言ったら Vim script ですよね。(意味不明)
scriptencoding utf-8lets:seed =0function!s:srand(seed) abort
lets:seed =a:seed
endfunctionfunction!s:rand() abort
lets:seed =s:seed * 214013+2531011return(s:seed <0 ? s:seed -0x80000000 : s:seed) / 0x10000 % 0x8000endfunctionvnewcalls:srand(localtime())while1call append('$', ['ズン','ドコ'][s:rand()%2])if getline(line('$')-4,'$')== ['ズン','ズン','ズン','ズン','ドコ']
call append('$','キ・ヨ・シ！')breakendifendwhile