Pistondoor

function open()
  rs.setOutput("left", false)
  os.sleep(0.2)
  rs.setOutput("right", false)
  os.sleep(0.2)
  rs.setOutput("bottom", true)
  os.sleep(0.2)
  rs.setOutput("top", true)
  os.sleep(0.2)
  rs.setOutput("top", false)
  os.sleep(0.2)
  rs.setOutput("bottom", false)
  os.sleep(0.2)
  rs.setOutput("left", true)
  os.sleep(0.2)
  rs.setOutput("left", false)
end

function close()
  rs.setOutput("bottom", true)
  os.sleep(0.2)
  rs.setOutput("top", true)
  os.sleep(0.1)
  rs.setOutput("top", false)
  os.sleep(0.2)
  rs.setOutput("bottom", false)
  os.sleep(0.2)
  rs.setOutput("right", true)
  os.sleep(0.2)
  rs.setOutput("left", true)
end

while true do
  os.pullEvent("redstone")
  if rs.getInput("back") then
    open()
    os.sleep(2)
    close()
  end
end