Create shuffle.hs

it works