disk done
added Disk.hs
updated some stuff