Add facelet.hs

The permutation of facelets on the cube is represented by an (unboxed) array.
README update