Voting

Category

esoteric language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language Maentwrog

Date:07/25/10
Author:Marinus Oosters
URL:n/a
Comments:1
Info:http://catseye.tc/projects/maentw/
Score: (3.60 in 5 votes)
*pdn *eqa *eqb *n
: putd pdn 48 + .. ;
: putnw n n 10 / =pdn pdn @putd 10 mod =pdn putd ;
: putn99 99 =n ;
: putn n -1 eq @putn99 putnw ;
: str dup .. @str ;
: eqh pop 0 ; 
: eq =eqa =eqb 1 eqa eqb - @eqh ;
: not 0 eq ;
: btl 0 101 108 116 116 111 98 32 str ;
: pl 115 .. ;
: ob 0 114 101 101 98 32 102 111 32 str ;
: otw 0 108 108 97 119 32 101 104 116 32 110 111 32 str ;
: take 0 32 101 107 97 84 str ;
: it 0 116 105 str ;
: one 0 101 110 111 str ;
: dapia 0 10 44 100 110 117 111 114 97 32 116 105 32 115 115
  97 112 32 100 110 97 32 110 119 111 100 32 str ;
: endl 0 10 44 str ;
: endp 0 10 10 46 str ;
: store 0 10 44 101 114 111 109 32 101 109 111 115 32 121 117
  98 32 100 110 97 32 101 114 111 116 115 32 101 104 116 32 
  111 116 32 111 71 str ;
: nomore 0 101 114 111 109 32 111 78 str ;
: outn dup 0 eq @nomore dup =n dup @putn btl 1 eq not @pl ;
: line3 =n n 0 eq @store n @take n 1 eq @it n 1 eq not n 0 
  eq not * @one n @dapia ;  
: verse dup outn ob otw endl dup outn ob endl dup line3 
  1 - outn ob otw endp ;
: verses dup verse 1 - dup 1 + @verses ;

99 verses

Download Source | Write Comment

Alternative Versions

Comments

>>  john hally said on 09/24/10 10:12:39

john hally
Many people enjoy Louboutin by the red shoes and shoe was praised the actual scene of aborigines,christian louboutin shoes ,cheap christian louboutin,cheap christian louboutin,
high fashion handbags
designer handbags
designer handbags on sale
handbags on sale
cheap sheepskin boots
sheepskin boots
taylor made golf clubs

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

Name:

eMail:

URL:

Security Code:
  
Comment: