bucle

#!/usr/bin/env perl
#
# Programa de bucle :D
#

import os

# Funciones para hacer el script mas divertido {

def clear():
     os.system('clear')

clear()

def sleep():
     os.system('sleep 1')

# } Hasta aqui

# Función accesible hasta usar la contraseña correcta

def acces():

    lista = ['cero', 'uno', 'dos'] # Definimos una lista

    print ("\nLista: ", lista ,"\n") # La vemos

    print ("Anadiendo un valor a la lista (tres): ")

    sleep()

    lista[3 : 3] = ["tres"] # Añadimos un valor

    print ("Listo ;)\n")

    sleep()

    print ("Recorriendo con un bucle toda la lista:\n")

    sleep()

    for l in lista: # Lo recorremos con un bucle
       print(l)

    # O lo podemos llamar por partes con el parametro adentro de []

    print ("\nLlmando el primer valor: ", lista[0], "segundo : ", lista[1])

    sleep()

    print ("\nLista por rebanada([ : 2 ]): ", lista[ : 2  ])

    sleep()

    print ("\nLista: ", lista) # Llamamos la lista de nuevo

    sleep()

    print ("\nNumero de elementos en la lista: ", len( lista ))

Pasword = "alpine"

while True:
    password = input("Password: ")
    if password == Pasword:
        print ("Bienvenido")
        acces()
        break
    else:
        print ("\nNo es el password :(")