let hisat tool =   let open KEDSL in   let url, hisat_binary =     let open Machine.Tool.Default in     match tool with     | one when one = hisat ->       "http://ccb.jhu.edu/software/hisat/downloads/hisat-0.1.6-beta-Linux_x86_64.zip",       "hisat"     | two when two = hisat2 ->       "ftp://ftp.ccb.jhu.edu/pub/infphilo/hisat2/downloads/hisat2-2.0.2-beta-Linux_x86_64.zip",       "hisat2"     | other ->       failwithf "Can't install Hisat version: %s" (Tool_def.to_string other)   in   Installable_tool.make tool     ~url     ~witness:(witness_file hisat_binary)     ~install_program:KEDSL.Program.(fun ~path ->         shf "mv hisat* %s" path       )   ~init_program:add_to_dollar_path