unpackNumber :: Word8 -> [Maybe ChessPiece]
unpackNumber n =
    let
        a = shiftR n 4
        b = n .&. 0xF
    in map decodePiece [a,b]
unpackNumber :: Word8 -> [Maybe ChessPiece]
unpackNumber n =
    let
        a = shiftR n 4
        b = n .&. 0xF
    in map decodePiece [a,b]
unpackNumber n =
    let
        a = shiftR n 4
        b = n .&. 0xF
    in map decodePiece [a,b]