to @inizio
window 
end

to antifiocco :mis
fio5A :mis
end

to antisiamese :mis
sia5A :mis
end

to colantisiamesi :mis
antisiamese :mis
colsopra :mis
colsotto :mis
end

to coldestra :mis
make "diago :mis*sqrt 3
salta 0 :diago colantisiamesi :mis
salta 0 :diago colantisiamesi :mis
salta 0 :diago colantisiamesi :mis
salta 0 -3*:diago
end

to colonneA :mis
colantisiamesi :mis
coldestra :mis
colsinistra :mis
end

to colonneAA :mis
colonneA :mis
rt 60 salta :mis 0 lt 60
colonneA :mis
rt 60 salta -:mis 0 lt 60
end

to colsinistra :mis
make "diago :mis*sqrt 3
salta 0 -:diago colantisiamesi :mis
salta 0 -:diago colantisiamesi :mis
salta 0 -:diago colantisiamesi :mis
salta 0 3*:diago
end

to colsopra :mis
salta :mis 0 antisiamese :mis
salta :mis 0 antisiamese :mis
salta :mis 0 antisiamese :mis
salta :mis 0 antisiamese :mis
salta :mis 0 antisiamese :mis
salta -:mis*5 0
end

to colsotto :mis
salta -:mis 0 antisiamese :mis
salta -:mis 0 antisiamese :mis
salta -:mis 0 antisiamese :mis
salta -:mis 0 antisiamese :mis
salta -:mis 0 antisiamese :mis
salta :mis*5 0
end

to esa :mis
fio5A :mis lt 60
fio5A :mis lt 60
fio5A :mis lt 60
fio5A :mis lt 60
fio5A :mis lt 60
fio5A :mis lt 60
end

to esamezzo :mis
trint :liv rt 60
trint :liv rt 60
rt 60
trint :liv rt 60
trint :liv rt 60
rt 60
end

to fio5 :mis
koch5 :mis rt 120
koch5 :mis rt 120
koch5 :mis rt 120
end

to fio5A :mis
rt 60
koch5 :mis lt 120
koch5 :mis lt 120
koch5 :mis lt 120
lt 60
end

to fiocco :mis
fio5 :mis
end

to koch :mis :liv
if :liv=0 [koch0 :mis stop]
make "mis :mis/3

koch :mis :liv-1 lt 60
koch :mis :liv-1 rt 120
koch :mis :liv-1 lt 60
koch :mis :liv-1
end

to koch0 :mis
fd :mis
end

to koch1 :mis
make "mis :mis/3
koch0 :mis lt 60
koch0 :mis rt 120
koch0 :mis lt 60
koch0 :mis
end

to koch2 :mis
make "mis :mis/3
koch1 :mis lt 60
koch1 :mis rt 120
koch1 :mis lt 60
koch1 :mis
end

to koch3 :mis
make "mis :mis/3
koch2 :mis lt 60
koch2 :mis rt 120
koch2 :mis lt 60
koch2 :mis
end

to koch4 :mis
make "mis :mis/3
koch3 :mis lt 60
koch3 :mis rt 120
koch3 :mis lt 60
koch3 :mis
end

to koch5 :mis
make "mis :mis/3
koch4 :mis lt 60
koch4 :mis rt 120
koch4 :mis lt 60
koch4 :mis
end

to koch6 :mis
make "mis :mis/3
koch5 :mis lt 60
koch5 :mis rt 120
koch5 :mis lt 60
koch5 :mis
end

to koch7 :mis
make "mis :mis/3
koch6 :mis lt 60
koch6 :mis rt 120
koch6 :mis lt 60
koch6 :mis
end

to salta :alto :lungo
penup 
forward :alto right 90 
forward :lungo left 90 
pendown
end

to sia0 
rt 60 
koch0 :lato rt 60
koch0 :lato rt 120
koch0 :lato rt 60
koch0 :lato rt 120
lt 60
end

to sia5 :mis
rt 60
koch5 :mis rt 60
koch5 :mis rt 120
koch5 :mis rt 60
koch5 :mis rt 120
lt 60
end

to sia5A :mis
rt 120 
koch5 :mis lt 60
koch5 :mis lt 120
koch5 :mis lt 60
koch5 :mis lt 120
lt 120
end

to siamese :mis
sia5 :mis
end

Make "startup [window cs siamese 200]