RosettaCodeData/Task/Empty-directory/Maple/empty-directory.maple

emptydirectory := proc (dir)
is(listdir(dir) = [".", ".."]);
end proc;