Θέλω κι εγώ να μάθω περίεργες γλώσσες... πχ Perl.
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{ @p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord ($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&& close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;printYeap, that character spaghetti actually does something in Perl.
SEGMT SEGMENT
ASSUME CS:SEGMT, DS:SEGMT
ORG 100h
Main:
MOV AH,09h
MOV DX,OFFSET Text
INT 21h
MOV AX,4C00h
INT 21h
Text:
DB "Ψωνάρα$"
SEGMT ENDS
END Main









