mirror of
https://github.com/danog/ton.git
synced 2024-12-02 09:28:02 +01:00
9 lines
212 B
Plaintext
Executable File
9 lines
212 B
Plaintext
Executable File
#!/usr/bin/fift -s
|
|
{ ."usage: " $0 type ." <num1> <num2>" cr
|
|
."Computes the product of two integers." cr bye } : usage
|
|
{ ' usage if } : ?usage
|
|
$# 2 <> ?usage
|
|
$1 (number) 1- ?usage
|
|
$2 (number) 1- ?usage
|
|
* . cr
|