unmarshallW :: PhysicalWorkspace -> VirtualWorkspace

unmarshall  = ((S . read) *** drop 1) . break (=='_')
unmarshallW :: PhysicalWorkspace -> VirtualWorkspace
unmarshall  = ((S . read) *** drop 1) . break (=='_')
unmarshall  = ((S . read) *** drop 1) . break (=='_')