map <F4> :call CompileRunGcc()<CR>
func! CompileRunGcc()
  exec "w"
  exec "!gcc\ -o\ %<\ %<"
  exec "! ./%<"
endfunc