V2W6DX4MIMIGH3LDIHD3VLKF7POSBGCKQEWNWO5GK2SI2WP2NPRAC | Full <- mode s , None <- a = '∙'| Full <- mode s , Wall <- a = '#'| Full <- mode s , Box {} <- a = 'x'| Full <- mode s , Ball {} <- a = 'o'| Full <- mode s , Robot {} <- a = '@'
| Wall <- a = '#'| Box {} <- a = 'x'| Robot {} <- a = maybe 'o' (const '@') $ move a