fork download 
  1.  
  2. # TCL FTW
  3.  
  4. set x WAT; set y WAT???; puts "$x $y"; # Basic syntax.
  5.  
  6. set # no comment...
  7. set    
  8. set :) :(
  9. set (O_o),|..	-_-
  10. set $ dollar
  11.  
  12. proc     { puts [set  ] }
  13.  
  14. set (‮‮(  3; proc - - {   ${-} }; - "Omg! $x $y. This language is so much fun!! ${:)}"
  15.  
  16. proc ! ! { global :) (O_o),|.. ;   ${!} ;   [set ::$];   [set :)];   ${(O_o),|..} }
  17. ! wat?
  18. ! !
  19. ! [set #]
  20.  
  21. proc ? ? { puts [set ?]}
  22. ? wat?
  23.  
  24.  
Success #stdin #stdout 0.02s 5272KB
comments (?)
stdin 
Standard input is empty
stdout 
WAT WAT???
Omg! WAT WAT???. This language is so much fun!! :(
wat?
dollar
:(
-_-
!
dollar
:(
-_-
no comment...
dollar
:(
-_-
wat?
https://ideone.com/99qA4
language:
TCL (tcl 8.6)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!