fork download
  1.  
  2. USING: io kernel math math.parser ;
  3.  
  4. readln string>number
  5.  
  6. dup ( x -- x x )
  7. *
  8. 3
  9. *
  10.  
  11.  
  12. number>string print
Success #stdin #stdout 0.18s 163968KB
stdin
3
stdout
27