-module(prog).
-export([main/0]).

pyth(N) ->
    L = [{A, B, C} ||
        A <- lists:seq(1,     N - 2),
        B <- lists:seq(A + 1, N - 1),
        C <- lists:seq(B + 1, N),
        A + B + C =< N,
        A * A + B * B == C * C],
    io:format("~p\n", [L]).

main() ->
        pyth(100).